Carousel Volume 2 #1/carousel.iso/mactosh/hc/pers_fin.sit/Personal Financer/background_2781.txt

Text File | 1988-11-14 | 8.6 KB | 435 lines

-- background: 2781 from stack: in
-- bmap block id: 4023
-- flags: 4000
-- background id: 0
-- name:
----- HyperTalk script -----
on newCard
  get background field id 23 of previous card
  put it into x
  convert x to dateItems
  add 7 to item three of x
  convert x to long date
  put x into background field id 23
  get background field id 35 of previous card
  put it into z
  add 1 to it
  put it into background field id 35
end newCard

on tabKey
  getfirstmove
end tabKey

on getfirstmove
  put the clickloc into x
  add 14 to item 2 of x
  if item 2 of x > 240 then getcalculate
  else getnextline1
end getfirstmove

on getmove1
  put the clickloc into x
  add 14 to item 2 of x
  if item 2 of x > 240 then subtract 140 from item 2 of x
  add 45 to item 1 of x
  if item 1 of x > 419 then click at 124,111
  else click at x
  put the clickloc into y
  put the clickloc into z
  subtract 60 from item 2 of z
  drag from y to z

end getmove1

on getnextline1
  put the clickloc into x
  add 14 to item 2 of x
  click at x
  put the clickloc into y
  put the clickloc into z
  subtract 60 from item 2 of z
  drag from y to z
end getnextline1

on getcalculate
  put 0 into total
  repeat with row = 1 to 10
    get line row of field 1
    add it to total
  end repeat
  put total into line 11 of field 1


  put 0 into total
  repeat with row = 1 to 10
    get line row of field 2
    add it to total
  end repeat
  put total into line 11 of field 2

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 3
    add it to total
  end repeat
  put total into line 11 of field 3

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 4
    add it to total
  end repeat
  put total into line 11 of field 4

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 5
    add it to total
  end repeat
  put total into line 11 of field 5

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 6
    add it to total
  end repeat
  put total into line 11 of field 6

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 7
    add it to total
  end repeat
  put total into line 11 of field 7
  getmove1
end getcalculate






-- part 2 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=76 top=101 right=255 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 10 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=125 top=101 right=255 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=174 top=101 right=255 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 12 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=223 top=101 right=255 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 13 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=272 top=101 right=255 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 14 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=321 top=101 right=255 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 15 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=370 top=101 right=255 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 14
-- part name:


-- part 21 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=425 top=105 right=126 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  doMenu New Card
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=269 top=36 right=57 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name:


-- part 24 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=434 top=131 right=150 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  go to card 1
  show card field id 3
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=434 top=155 right=173 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  push card
  go to card 1
  show card field id 4
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=471 top=206 right=227 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual wipe right
  go to next card
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=435 top=206 right=227 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual wipe left
  go to previous card
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=446 top=231 right=258 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 7417 / 7417
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to first card
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=431 top=179 right=200 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calculate
----- HyperTalk script -----
on mouseUp
  getcalculate
end mouseUp

on getcalculate
  put 0 into total
  repeat with row = 1 to 10
    get line row of field 1
    add it to total
  end repeat
  put total into line 11 of field 1
  add total to background field 11

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 2
    add it to total
  end repeat
  put total into line 11 of field 2
  add total to background field 11

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 3
    add it to total
  end repeat
  put total into line 11 of field 3
  add total to background field 11

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 4
    add it to total
  end repeat
  put total into line 11 of field 4
  add total to background field 11

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 5
    add it to total
  end repeat
  put total into line 11 of field 5
  add total to background field 11

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 6
    add it to total
  end repeat
  put total into line 11 of field 6
  add total to background field 11

  put 0 into total
  repeat with row = 1 to 10
    get line row of field 7
    add it to total
  end repeat
  put total into line 11 of field 7
  add total to background field 11
end getcalculate




-- part 35 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=17 top=77 right=94 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: number